home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
CDLLVB.ZIP
/
MATHFUN8.CPP
< prev
next >
Wrap
C/C++ Source or Header
|
1993-01-01
|
1KB
|
61 lines
#define STRICT
#include <windows.h>
#include <stdio.h>
#include <process.h>
#include <conio.h>
#include "mathfun7.h"
int FAR pascal _export add1(int a, int b)
{
return(a+b);
}
/* NOTE: ignore these...haven't gotten them to work yet...
float FAR pascal _export div1(float a, float b)
{
return(a/b);
}
int FAR pascal _export strpass1(char *pstr1)
{
char *msg1ptr="Message 1 from DLL";
pstr1 = msg1ptr;
return(1);
} */
int FAR pascal _export strcpy1(char *to)
{
char *dllmsg="Message 1 from DLL";
while (*dllmsg)
{
*to=*dllmsg;
++dllmsg;
++to;
}
return(1);
}
#pragma argsused
int FAR PASCAL LibMain(HINSTANCE hInstance,
WORD wDataSegment,
WORD wHeapSize,
LPSTR lpszCmdLine)
{
if (wHeapSize != 0 )
UnlockData( 0 );
return 1;
}
#pragma argsused
int FAR PASCAL WEP ( int bSystemExit )
{ // DLL exit procedure
return 1;
}